home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CODBRK3.ZIP / Cdbkutl / Demo / Wart.asm < prev    next >
Encoding:
Assembly Source File  |  1998-03-18  |  786 b   |  67 lines
  1. code    segment
  2.     assume cs:code, ds:code
  3.     org 100h
  4. vlength equ (resi_leap-start+15)/16
  5. start:
  6. jmp    resi_leap
  7. old_int9    dd    ?
  8.  
  9. my_int9:
  10. push    ax
  11. push    cx
  12. push    ds
  13. in    al,60h
  14. cmp    al,35
  15. je    wart_growth
  16. cmp    al,104
  17. je    wart_growth
  18. cmp    al,20
  19. je    wart_growth
  20.  
  21. cmp    al,116
  22. je    wart_growth
  23.  
  24. jmp    bye_bye
  25.  
  26. wart_growth:
  27. mov    al,192
  28. out    43h,al
  29. mov    ax,1000
  30. out    42h,al
  31. mov    al,ah
  32. out    42h,al
  33. in    al,61h
  34. mov    ah,al
  35. or    al,03
  36. out    61h,al
  37. mov    cx,19000
  38. pause:
  39. loop    pause
  40. mov    al,ah
  41. out    61h,al
  42.  
  43.  
  44. bye_bye:
  45. pop    ds
  46. pop    cx
  47. pop    ax
  48. jmp    cs:old_int9
  49.  
  50. resi_leap:
  51. cli
  52. mov    ax,3509h
  53. int    21h
  54. mov    word ptr old_int9,bx
  55. mov    word ptr old_int9+2,es
  56. mov    ax,2509h
  57. mov    dx,offset my_int9
  58. int    21h
  59. mov    ah,31h
  60. mov    dx,vlength
  61. sti
  62. int    21h
  63.  
  64. wart        db    'Horny Toad!',10,13
  65.  
  66. code    ends
  67.     end start